home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / extraurb / mi076.dir / 00034_Script_34 < prev    next >
Text File  |  1983-01-30  |  493b  |  16 lines
  1. on HILITE_INT  _inizio,_fine,_sprite
  2.   set cast_hilite to "internal"
  3.   
  4.   set   _num to _fine-_inizio
  5.   set   _libero to true
  6.   repeat while _num>=0
  7.     if rollOver(_num+_sprite) and _libero then
  8.       set the member of sprite (_num+_sprite) to member (_fine+_num+1) of castLib cast_hilite
  9.       set  _libero to false
  10.     else
  11.       set the member of sprite (_num+_sprite) to member (_inizio+_num) of castLib cast_hilite
  12.     end if      
  13.     set  _num to _num-1
  14.   end repeat
  15.   
  16.